   1 .
   2 .
  10 &(21)=0;&(23)=0
  30 :return 
  32 FC=7;BC=0;NT=0
  40 clear 
  50 CY=32;CX=-47
  60 print "NUKE THE BASTARDS"
  70 box 0,32,103,11,3
  80 CY=16;CX=-56
 100 print "YOU ARE ARMED WITH A"
 110 print "  5 MEGATON HYDROGEN BOMB"
 120 print "SET FOR SURFACE DETONATION"
 130 print 
 140 print "     PULL THE TRIGGER"
 150 print "     TO DROP THE BOMB"
 160 print 
 170 print "        GOOD LUCK!",
 190 T=10;gosub 30000
 400 clear 
 410 line 79,-42,0;line -20,-42,1
 420 X=-22;Y=-41;A=6
 450 Y=Y+rnd (A)-4
 460 if Y<-42Y=-42
 465 if Y>0Y=0
 470 line X,Y,1;A=A+4;X=X-rnd (A)
 500 if X>-81goto 450
 510 line -80,-10,1
 530 N=rnd (41)
 540 if N<25N=N-14;goto 560
 550 N=N+19
 560 box N,-41,7,2,1
 570 box N-1,-40,3,3,1
 580 box N-1,-39,1,3,3
 600 O=%(20463);P=%(20465);W=8000;gosub 7000
1000 X=-78
1010 Y=rnd (30)+6
1017 &(23)=127;&(21)=255;CY=Y
1030 CX=X;print " right ",
1050 if TR(1)goto 1500
1060 X=X+1
1070 if X<68goto 1030
1080 CX=-60
1090 print "YOU PINKO PEACECREEP!"
1100 goto 1690
1500 CX=X
1510 print " .",
1520 CY=CY+3;CX=X+8;print "right ",
1550 T=30;gosub 31000
1565 &(21)=15;&(16)=23
1570 box X+8,CY,6,8,2
1580 X=X+6
1590 Y=Y-2
1600 CX=X;CY=Y
1615 &(19)=Y+45
1620 if PX(X,Y-3)+PX(X,Y-4)goto 1800
1635 print ".",
1640 X=X+1
1650 Y=Y-2
1660 if X<78goto 1600
1670 CX=-10;CY=40
1680 print "MISS"
1690 T=4;gosub 30000
1710 goto 10
1800 X=X-1;Y=Y+1;&(21)=0
1820 print "*",
1825 Z=0;if ABS(X-N)<8Z=1
1830 BC=7;I=8;T=72;gosub 31000
1860 BC=0
1870 H=4;W=8;U=255
1887 &(16)=U;&(21)=U
1890 for D=2to 12
1900 BC=0
1903 if Z&(9)=0
1905 &(19)=U;&(23)=U
1907 U=U-7
1910 box X,Y+D,W,H,3
1920 box X,Y-D,W,H,3
1930 I=I+16;BC=I
1932 if Z&(9)=43
1940 W=W+2
1950 H=H+2
1960 next D
1965 &(23)=0;&(21)=0;BC=7
1967 &(16)=45;BC=0;R=0
3005 D=0;L=Y-40;%(20463)=O;%(20465)=P;W=9000;gosub 7000
3110 CX=-60
3120 CY=40
3122 R=Dmul 100div R
3125 if Z D=Dmul 20
3130 print "SCORE: ",#0,D+1,"0000 DEAD"
3140 print 
3145 if Z=0goto 3190
3150 print "    BONUS! YOU HIT THE"

3160 print "   NUCLEAR POWER PLANT!"

3170 print 

3190 print "  PROPERTY DESTROYED:",#3,R,"%"

3200 T=12

3210 gosub 30000

3220 goto 10

7000 B=-20;E=10;H=3;gosub W;B=E;E=40;H=10;gosub W

7010 B=E;E=60;H=3;gosub W;return 
8000 for A=Bto E;S=rnd (H)
8010 box A,-42+Sdiv 2,1,S,1
8020 next A;return 
9000 for A=Bto E;S=rnd (H);R=R+S
9010 if A>X-12if A<X+12D=D+H
9040 box X,L,30,1,2;L=L+1;next A;return 
9045 L=L+1
30000 for V=1to Tmul 80
30010 if TR(1)goto 30040
30030 next V
30040 return 
31000 for Q=1to T
31010 next Q
31020 return 
run 
